home *** CD-ROM | disk | FTP | other *** search
/ Aminet 34 / Aminet 34 (2000)(Schatztruhe)[!][Dec 1999].iso / Aminet / util / rexx / Homebanking.lha / Homebanking / Vorlage < prev   
Encoding:
Text File  |  1999-02-19  |  1.1 KB  |  40 lines
  1. /*  $VER: Startskript-RexxVersion Version 1.0 vom 30.01.1999
  2.  
  3.     von Frank Seidel
  4.  
  5.     Fr.Seidel@t-online.de
  6.     http://home.t-online.de/home/Fr.Seidel/start.html
  7.  
  8. */
  9.  
  10. IF ~SHOW(LIBRARIES,'rexxsupport.library') THEN
  11.    IF ~ADDLIB('rexxsupport.library',0,-30,0) THEN
  12.       EXIT 10
  13. IF ~SHOW(LIBRARIES,'rexxreqtools.library') THEN
  14.    IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN
  15.       EXIT 10
  16.  
  17.  
  18. address command 'sys:rexxc/rx >NIL: Multiterm:Rexx/@f5'  /* <-- MultitermArexxskriptname */
  19.  
  20. PP = 2
  21. Do while PP > 1
  22. OPTIONS RESULTS
  23.   ADDRESS COMMAND 'wait 2 secs'
  24.   IF ~SHOW('PORTS','MultiTerm_Btx',) THEN
  25.      PP = 0
  26.      address command 'wait 2 secs'
  27.      end
  28.  
  29. Flags = 'rtez_flags = ezreqf_centertext'
  30. call rtezrequest('Überweisung erfolgreich ?'||'0A'x||'Multiterm:Rexx/@f5'||'0A'x||'und'||'0A'x||'S:Üwsg/@f6'||'0A'x||'löschen ?','Skripte _löschen|_Skripte nicht löschen','Abfrage',,
  31.       'rt_pubscrname = ''MultiTerm KIT''' 'rt_reqpos = reqpos_centerscr' 'rtez_flags = ezreqf_centertext')
  32.      IF RESULT = 1
  33.         THEN do
  34.         address command 'c:delete >NIL: Multiterm:Rexx/@f5'
  35.         address command 'c:delete >NIL: S:üwsg/@f6'
  36.         end
  37.  
  38. exit
  39.  
  40.